Imports System.Web.HttpContext
Namespace DotNetNuke.Modules.ActiveForums
    Public Class AMPageBase
        Inherits DotNetNuke.Framework.PageBase
        Shared _AFModId As Integer
        Public Shared Property AFModID() As Integer
            Get
                Return _AFModId
            End Get
            Set(ByVal value As Integer)
                _AFModId = value
            End Set
        End Property
        'Public ReadOnly Property PortalId() As Integer
        '    Get
        '        Return CInt(Request.QueryString("pid"))
        '    End Get
        'End Property
        Public Shared ReadOnly Property MainSettings() As SettingsInfo
            Get
                Dim sb As New DotNetNuke.Modules.ActiveForums.SettingsBase
                sb.ForumModuleId = AFModID
                Return sb.MainSettings()
            End Get
        End Property
        Public Shared ReadOnly Property TabId() As Integer
            Get
                Return CInt(Current.Request.QueryString("tabid"))
            End Get
        End Property


    End Class
End Namespace
